<%
' ReadDir(strDirectory) as integer
' ReadDir returns:
' 1 succeed
' 0 directory not exists
' -1 failure
'
' Sample Operation:
' Get a file name and sub directory list of directory "c:\windows".
'
'
' This file is provided as part of ASP Power Widgets Samples
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
' PURPOSE.
' Copyright 1997-1998. All rights reserved.
' Dalun Software Inc. ASP Power Widgets
' http://www.dalun.com
' http://members.tripod.com/ActiveServerPage/
vbNormal = 0 'Normal
vbReadOnly = 1 'Read-only
vbHidden = 2 'Hidden
vbSystem = 4 'System
vbDirectory = 16 'Directory or folder
vbArchive = 32 'File has changed since last backup
Dim sDirName
Set oFDMgt = Server.CreateObject("ASPPW.FDMgt")
sDirName = oFDMgt.GetWindowsDirectory
response.write "Read directory " + sDirName + " .
"
if oFDMgt.ReadDir(sDirName)= -1 then
response.write "Oops, Read directory failed.
"
response.write oFDMgt.GetLastErrDescription
else
Set oFilelist = ofdmgt.Files
response.write ""
For Each file In oFilelist
response.write ""
response.write "| " & file.Name & " | "
response.write "" & file.Length & " | "
response.write "" & file.DateTime & " | "
sAttr="-"
if file.Attr And vbReadOnly then
sAttr=sAttr & "R-"
else
sAttr=sAttr & "--"
end if
if file.Attr And vbHidden then
sAttr=sAttr & "H-"
else
sAttr=sAttr & "--"
end if
if file.Attr And vbSystem then
sAttr=sAttr & "S-"
else
sAttr=sAttr & "--"
end if
if file.Attr And vbArchive then
sAttr=sAttr & "A-"
else
sAttr=sAttr & "--"
end if
response.write "" & sAttr & " | "
response.write "
"
Next
response.write "
"
response.write "
Total " & cstr(oFileList.count) & " files read.
"
response.write ""
Set oSubDirList = ofdmgt.SubDirs
For Each subdir In oSubDirList
response.write ""
response.write "| " & subdir.Name & " | "
response.write "" & "DIR" & " | "
response.write "" & subdir.DateTime & " | "
sAttr="-"
if subdir.Attr And vbReadOnly then
sAttr=sAttr & "R-"
else
sAttr=sAttr & "--"
end if
if subdir.Attr And vbHidden then
sAttr=sAttr & "H-"
else
sAttr=sAttr & "--"
end if
if subdir.Attr And vbSystem then
sAttr=sAttr & "S-"
else
sAttr=sAttr & "--"
end if
if subdir.Attr And vbArchive then
sAttr=sAttr & "A-"
else
sAttr=sAttr & "--"
end if
response.write "" & sAttr & " | "
response.write "
"
Next
response.write "
"
response.write "
Total " & cstr(oSubDirList.count) & " sub directories read.
"
end if
Response.write "Disk C has " & CStr(oFDMgt.GetDiskfreeSpace("c:\")) & " bytes left."
Set oFilelist=nothing
Set oSubDirList=nothing
Set oFDMgt = Nothing
%>